////*************Disclaimer***************
//Run in 1024x768
//All navs in New ed, Carp, Glenn, Swooping Eagle, XT, must be explored.
//Make sure youhave nothing in your hold!

Constants																																										////
  GatedOrDocked=0						// Signifies if it Completed Warping.														////
  MapOpen=0									// Signifies if Map is open.																			////
  runs=0 //do not touch
  starbases=0 //do not touch
  Name=*****                //Enter your chars name here!
  kraken=4
  selectself=`    //what key is used to select yourself, make sure is set right!
  location=0		//what sector your in, look below for numbers for each sector.
  // 0 = somerled
  // 1 = new ed
  // 2 = carpenter
  // 3 = glenn
  // 4 = swooping eagle
  // 5 = xipe totec
  start=0 // do not touch
  complete=0  /// do not touch
  length=0  //do not touch
  person=you //do not touch
End

ObjVar 14

SetActiveWindow Earth & Beyond
delay 3000
if {windowwidth}=1024
  call resume
else
  say /t $Name the resolution is {windowwidth}x{windowheight}, change it to 1024x768
end

procedure continue
  while 1=1
    //
    SetActiveWindow Earth & Beyond
    delay 3000
    keys {home}
    say /t $Name we have completed $runs runs
    setconst complete, {minute}
    timestamp $name has completed $runs and passed through $starbases starbases, at {Year} {month} {day} {hour}:{minute}
    setconst start, {minute}
    compute length = $start - $complete
    timestamp run lasted $length
    setconst length, 0
    delay 1 sec
    call enters
    call mains
    call bazaars
    call starttrades
    if $runs = 0
    else
      call sell
    end
    call buyspices
    delay 5 sec
    call bazaarse
    call mainse
    call enterse
    call checks
    //
    inc starbases
    call warp 394, 431
    call warp 214, 356
    call warp 392, 364
    call warp 247, 488
    call warp 257, 455
    delay 10 sec
    //
    call enterp
    call mainp
    call bazaarp
    call starttradep
    call sell
    call buyJWT
    delay 5 sec
    call bazaarpe
    call mainpe
    call enterpe
    call checkp
    //
    call warp 249, 484
    call warp 277, 464
    call warp 365, 473
    call warp 288, 416
    call warp 308, 483
    delay 7 sec
    //
    inc runs
    inc starbases
  end
end

procedure resume
  timestamp going to $location
  if $location=0
    call continue
  else
    if $location=1
      call warp 308, 483
      call continue
    else
      if $location=2
        call warp 288, 416
        call warp 308, 483
        call continue
      else
        if $location=3
          call warp 365, 473
          call warp 288, 416
          call warp 308, 483
          call continue
        else
          if $location=4
            call warp 247, 488
            call warp 257, 455
            delay 10 sec
            //
            call enterp
            call mainp
            call bazaarp
            call starttradep
            call sell
            call buyJWT
            delay 5 sec
            call bazaarpe
            call mainpe
            call enterpe
            call checkp
            //
            call warp 249, 484
            call warp 277, 464
            call warp 365, 473
            call warp 288, 416
            call warp 308, 483
            delay 7 sec
            call continue
          else
            if $location=5
              call warp 257, 455
              delay 10 sec
              //
              call enterp
              call mainp
              call bazaarp
              call starttradep
              call sell
              call buyJWT
              delay 5 sec
              call bazaarpe
              call mainpe
              call enterpe
              call checkp
              //
              call warp 249, 484
              call warp 277, 464
              call warp 365, 473
              call warp 288, 416
              call warp 308, 483
              delay 7 sec
              call continue
            end
          end
        end
      end
    end
  end
  timestamp damn
end

//star base reset
procedure sbreset
  setmemory bd8860,0
  setmemory bd7ea0,1239513710
  keys /starbase reset{RETURN}
  delay 100
end
//end star base reset

// Somerled station
//enter
procedure enters
  call sbreset
  keydown a 6.2 sec
end

procedure mains
  call sbreset
  keydown {right} 900
  keydown a 4 sec
end

procedure bazaars
  call sbreset
  keydown a 8 sec
  keydown {right} 1250
  keydown a 6 sec
  keydown {left} 1350
  keydown a 5 sec
  delay 1 sec
  mousepos 262, 375
  leftclick
  mousepos 334, 384
  leftclick
  mousepos 359, 382
  leftclick
  mousepos 383, 389
  leftclick
end
//exit

procedure bazaarse
  call sbreset
  keydown a 3.9 sec
  keydown {left} 780
  keydown a 5 sec
end

procedure mainse
  call sbreset
  keydown {left} 1.55 sec
  keydown a 5 sec
end

procedure enterse
  call sbreset
  keydown {right} 1 sec
  mousepos 510, 310
  delay 100
  leftclick
end
//end somerled station

procedure checks
  while 1=1
    delay 30 sec
    keys $selectself
    delay 3 sec
    isobject analyse at 281, 322
      mousepos 695, 207
      delay 200
      leftclick
      delay 200
    end
    isobject group at 985, 509
      break
    else
      call bazaarse
      call mainse
      call enterse
    end
  end
end

procedure checkp
  while 1=1
    delay 30 sec
    keys $selectself
    delay 3 sec
    isobject analyse at 281, 322
      mousepos 695, 207
      delay 200
      leftclick
      delay 200
    end
    isobject group at 985, 509
      break
    else
      call bazaarpe
      call mainpe
      call enterpe
    end
  end
end

//Prasad station
procedure enterp
  call sbreset
  keydown {right} 65
  keydown a 6 sec
end

procedure mainp
  call sbreset
  keydown {left} 750
  keydown a 5 sec
end

procedure bazaarp
  call sbreset
  keydown {right} 300
  keydown a 3 sec
  keydown {right} 500
  mousepos 744, 367
  delay 100
  leftclick
end

procedure bazaarpe
  call sbreset
  keydown {left} 760
  keydown a 5 sec
end

procedure mainpe
  call sbreset
  keydown {right} 120
  keydown a 5 sec
end

procedure enterpe
  call sbreset
  keydown {right} 1 sec
  mousepos 25, 208
  delay 100
  leftclick
end
//end prasad station

//buy JWT
procedure buyJWT
  while 1=1
    mousepos 750, 332
    delay 100
    leftclick
    delay 100
    isobject buy at 788, 715
      break
    end
  end
  loop 60
    mousepos 786, 721
    delay 100
    leftclick
    delay 100
  end
  mousepos 1008, 252
  delay 100
  leftclick
  while 1=1
    isobject exit at 875, 470
      mousepos 875, 470
      delay 100
      leftclick
      break
    end
  end
end
//end buy JWT

//trade
procedure starttrades
  delay 10 sec
  while 1=1
    isobject analyse at 281, 322
      mousepos 695, 207
      delay 200
      leftclick
      delay 200
    else
      break
    end
  end
  while 1=1
    isobject Trades at 385, 622
      break
    else
      call enters
      call mains
      call bazaars
    end
  end
  mousepos 385, 622
  delay 100
  leftclick
end

procedure starttradep
  delay 10 sec
  isobject tradep at 398, 624
  else
    call enterp
    call mainp
    call bazaarp
    call starttradep
  end
  mousepos 398, 624
  delay 100
  leftclick
end
//end trade

//sell
procedure sell
call docktrade
delay 1 sec
  loop 45
    mousepos 160, 286
    delay 100
    leftclick
    delay 500
    mousepos 49, 329
    delay 100
    leftclick
    delay 500
    mousepos 49, 576
    delay 100
    leftclick
    delay 500
  end
end
//end sell

//buy spices
procedure buyspices
  mousepos 1004, 673
  loop 10
    leftmousedown
  end
  while 1=1
    mousepos 751, 410
    delay 100
    leftclick
    delay 100
    isobject buy at 788, 715
      break
    end
  end
  loop 60
    mousepos 789, 721
    delay 100
    leftclick
  end
  mousepos 1007, 250
  delay 100
  leftclick
  while 1=1
    isobject exit at 875, 470
      mousepos 875, 470
      delay 100
      leftclick
      break
    end
  end
end
//end buy spices

//objects

Object Map   // Test at coords 100, 687
  71=0,0|80=2,0|81=4,0|79=6,0|75=8,0|
  153=0,2|59=2,2|63=4,2|71=6,2|181=8,2|
  91=0,4|67=2,4|186=4,4|94=6,4|86=8,4|
  159=0,6|113=2,6|201=4,6|62=6,6|116=8,6|
End Object

Object Buy   // Test at coords 788, 715
  86=0,0|86=2,0|86=4,0|86=6,0|
  80=0,2|80=2,2|80=4,2|80=6,2|
  83=2,4|253=4,4|
  89=2,6|254=4,6|89=6,6|
End Object

Object Tradep   // Test at coords 398, 624
  83=0,0|83=2,0|82=4,0|82=6,0|
  81=0,2|
  75=0,4|254=6,4|
  254=2,6|254=4,6|254=6,6|
End Object
procedure docktrade
call warpstoplace
end
Object Trades   // Test at coords 385, 622
  99=0,0|99=2,0|98=4,0|99=6,0|
  80=0,2|254=2,2|254=4,2|254=6,2|
  76=0,4|78=2,4|254=4,4|84=6,4|
End Object

Object Exit   // Test at coords 875, 470
  145=0,0|111=2,0|31=4,0|52=6,0|154=8,0|
  70=0,2|160=2,2|137=4,2|163=6,2|122=8,2|
  49=0,4|102=2,4|219=4,4|214=6,4|67=8,4|
  80=0,6|198=2,6|121=4,6|173=6,6|133=8,6|
End Object
//end objects

// warping																																												////
////
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Procedure OutsideStationChk
  SetConst FailOrPassChk = 1
  Loop 25
    Keys w
    Delay 2 sec
    ISOBJECT DockButton at 982, 502
      SetConst FailOrPassChk = 0
      Break
    else
      SetConst FailOrPassChk = 1
    End
  End
  If $FailOrPassChk = 1
    Call EmergecyLeave
    Call Resume
  end
End

//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// Begin Navigation Commands
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Procedure Warp Using x, y, z
  
  Keydown $selectself 100
  call speedboost
  Delay .5 sec
  Call Map
  Call PlotRoute $x, $y
  Call WarpButton
  If $z = 0
  Else
    Call Gate
    If $GatedOrDocked = 1
      Call WaitForSector
    Else
      Call Warp $x, $y, $z
    End
  End
End
procedure warpstoplace
call gatingandall
end
Procedure SpeedBoost
  Keydown $selectself 1 sec
  Keys $Kraken
End

Procedure Map
  SetConst MapOpen = 1
  While $MapOpen = 1
    keydown m 200
    Delay 1 sec
    Loop 8
      IsObject Maximize at 360, 340
        SetConst MapOpen = 0
        Delay 2 Sec
        Break
      Else
        IsObject Minimize at 562, 187
          MousePos 562, 187
          LeftClick
          Delay 1 sec
        Else
          Delay 1 sec
        End
      End
    End
  End
End

Procedure WarpButton
  SetActiveWindow Earth & Beyond
  Keydown q 300
  Delay 10 Sec
  loop 1000000
    MousePos 511, 692
    Delay 1 Sec
    IsObject WarpTag at 517, 680
      Break
    End
    IsObject WarpTag2 at 517, 680
      Break
    End
  End
End
constants
step=watching
end
Procedure PlotRoute using a, b
  SetActiveWindow Earth & Beyond
  MousePos 65, 346
  Leftclick
  Rightclick
  MousePos 33, 607
  DragTo 364, 361
  Delay 1 sec
  MousePos $a, $b
  Delay 1 sec
  Loop 5
    LeftClick 100
    Delay 400
  End
End
procedure gatingandall
call hey
end
Procedure Gate
  SetConst GatedOrDocked = 0
  SetActiveWindow Earth & Beyond
  loop 10
    ISOBJECT GateButton AT 982, 502
      MousePos 990,515
      MousePos 990,515
      Delay 1 sec
      LeftMouseDown
      Delay 2 sec
      LeftMouseUp
      MousePos 990,515
      Loop 3
        LeftClick
        Delay 200
      End
      SetConst GatedOrDocked = 1
      Break
    Else
      ISOBJECT DockButton AT 982, 502
        MousePos 990,515
        MousePos 990,515
        Delay 1 sec
        LeftMouseDown
        Delay 2 sec
        LeftMouseUp
        MousePos 990,515
        Loop 3
          LeftClick
          Delay 200
        End
        SetConst GatedOrDocked = 1
        Break
      Else
        Delay 500
      End
    End
  End
End
Procedure WaitForSector
  loop 500
    ISOBJECT GatingScreen AT 485, 737
      Break
    Else
      Delay 100
    End
  End
  While 1=1
    ISOBJECT GatingScreen AT 485, 737
      Delay 100
    Else
      Break
    End
  End
  Delay 4000
End
// End Navigation Commands

//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// Begin Objects
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

// Checks for Tool-Tip when mouse is over warp button
Object WarpTag   // Test at coords 517, 680
  254=4,0|43=6,0|64=12,0|68=20,0|84=34,0|254=36,0|
  254=2,2|254=8,2|83=10,2|88=12,2|1=16,2|253=18,2|100=20,2|254=22,2|254=28,2|254=36,2|
  65=0,4|65=10,4|254=18,4|76=20,4|254=22,4|67=24,4|62=26,4|254=28,4|64=30,4|254=36,4|
End Object
procedure hey
keys /t $name $check $step $person ...
end
// Checks for Tool-Tip when mouse is over warp button
Object WarpTag2
  65=0,4|65=0,6|68=0,8|68=0,10
  254=2,2|65=2,8|65=2,10
  254=4,0|62=4,8|63=4,10
  56=6,0|254=6,6|61=6,8|62=6,10
  254=8,2|60=8,6|64=8,8|66=8,10
  84=10,2|66=10,4|67=10,6|72=10,8|74=10,10
End


// Checks for the Maximize button on map to make sure the map is small
Object Maximize   // Test at coords 360, 340
  92=0,0|125=2,0|213=4,0|91=6,0|
  229=0,2|229=2,2|234=4,2|229=6,2|
  177=0,4|177=2,4|214=4,4|177=6,4|
  93=0,6|126=2,6|213=4,6|93=6,6|
End Object
constants
check=I'm
end
// Checks for the minimize button on map to make sure the map is small
Object Minimize
  81=0,0|86=0,2|73=0,4
  84=2,0|237=2,2|73=2,4
  80=4,0|237=4,2|73=4,4
End

// Checks for dock button
Object DockButton
  51=0,0|85=0,2|230=0,4|209=0,6|231=0,8|145=0,10
  53=2,0|124=2,2|252=2,4|225=2,6|88=2,8|82=2,10
  54=4,0|140=4,2|234=4,4|169=4,6|78=4,8|88=4,10
  69=6,0|82=6,2|86=6,4|88=6,6|89=6,8|88=6,10
  77=8,0|68=8,2|64=8,4|66=8,6|80=8,8|88=8,10
  65=10,0|86=10,2|171=10,4|196=10,6|72=10,8|89=10,10
End

// Checks for gate button
Object GateButton
  64=0,0|76=0,2|128=0,4|236=0,6|112=0,8|175=0,10
  70=2,0|81=2,2|84=2,4|78=2,6|250=2,8|242=2,10
  70=4,0|85=4,2|89=4,4|164=4,6|255=4,8|242=4,10
  75=6,0|87=6,2|81=6,4|115=6,6|101=6,8|97=6,10
  84=8,0|91=8,2|83=8,4|82=8,6|83=8,8|84=8,10
  83=10,0|94=10,2|94=10,4|229=10,6|231=10,8|230=10,10
End

// Checks for the 100 at the bottem of the splash screen between sectors
Object GatingScreen
  71=0,0|148=0,2|57=0,4
  82=2,0|76=2,2|69=2,4|52=2,6
  82=4,0|173=4,2|130=4,4|95=4,6
  74=6,0|79=6,2|69=6,4
  74=8,0|174=8,2|124=8,4|100=8,6
End

Object Group   // Test at coords 985, 509
  202=0,0|219=2,0|210=4,0|231=6,0|
  210=0,2|251=2,2|247=4,2|244=6,2|
  198=0,4|253=2,4|250=4,4|230=6,4|
  182=0,6|252=2,6|241=4,6|215=6,6|
End Object

Object Analyse   // Test at coords 281, 322
  82=0,0|82=2,0|82=4,0|82=6,0|82=8,0|82=10,0|
  82=0,2|82=2,2|82=4,2|252=8,2|1=10,2|
  82=0,4|253=4,4|2=6,4|82=10,4|
  82=0,6|1=4,6|253=6,6|1=8,6|
End Object